Aminet 8/Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso/Aminet/biz/dbase/MusicManII.lha/english/Install_English

Text File | 1995-07-20 | 16KB | 641 lines

;
; Installer-Script für MusicManII V2.13
;
; $VER: Install_MusicManII 2.13e (20.07.95)
;


;
; Create a bootable System-Disk
; -----------------------------

(PROCEDURE create_boot_disk
(
  (SET Kick3 0)

  (ASKDISK (DEST "MusicManII")
           (PROMPT "Please insert disk named »MusicManII« ...")
           (HELP "You have to insert a disk named\n"
                 "»MusicManII:«. All files needed\n"
                 "to start MusicManII from disk\n"
                 "will be copied to it.\n")
  )

  (MAKEDIR "MusicManII:C")
  (MAKEDIR "MusicManII:L")
  (MAKEDIR "MusicManII:Devs")
  (MAKEDIR "MusicManII:Devs/Printers")
  (MAKEDIR "MusicManII:Devs/Keymaps")
  (MAKEDIR "MusicManII:S")

  (IF (>= Kickstart 36)
    (
      (MAKEDIR "MusicManII:Prefs")
      (MAKEDIR "MusicManII:Prefs/Env-Archive")
    )
  )

  (COPYFILES (PROMPT "Copying to C-directory...")
             (DEST "MusicManII:C")
             (SOURCE "c:Copy")
  )

  (COPYFILES (PROMPT "Copying to C-directory...")
             (DEST "MusicManII:C")
             (SOURCE "c:MakeDir")
  )

  (COPYFILES (PROMPT "Copying to C-directory...")
             (DEST "MusicManII:C")
             (SOURCE "c:Assign")
  )

  (IF (= (EXISTS "Sys:System/Setmap") 1)
    (
      (COPYFILES (PROMPT "Copying to C-directory...")
                 (DEST "MusicManII:C")
                 (SOURCE "Sys:System/Setmap")
      )
    )
    (
      (SET Kick3 1)
      (COPYFILES (PROMPT "Copying to C-directory...")
                 (DEST "MusicManII:C")
                 (SOURCE "C:Setkeyboard")
      )
    )
  )

  (IF (>= Kickstart 36)
    (
      (COPYFILES (PROMPT "Copying to C-directory...")
                 (DEST "MusicManII:C")
                 (SOURCE "c:IPrefs")
      )
    )
  )

  (IF (= (EXISTS "L:Ram-Handler") 1)
    (
      (COPYFILES (PROMPT "Copying to L-directory...")
                 (DEST "MusicManII:L")
                 (SOURCE "L:Ram-Handler")
      )
    )
  )

  (COPYFILES (PROMPT "Copying to L-directory,..")
             (DEST "MusicManII:L")
             (SOURCE "L:Port-Handler")
  )

  (IF (< Kickstart 36)
    (
      (COPYFILES (PROMPT "Copying to L-directory...")
                 (DEST "MusicManII:L")
                 (SOURCE "L:Disk-Validator")
      )
    )
  )

  (COPYFILES (PROMPT "Coyping to Devs-directory...")
             (DEST "MusicManII:Devs/Keymaps")
             (SOURCE "DEVS:Keymaps/")
             (ALL)
  )

  (COPYFILES (PROMPT "Copying to Devs-directory...")
             (DEST "MusicManII:Devs/Printers")
             (SOURCE "DEVS:Printers/")
             (ALL)
  )

  (COPYFILES (PROMPT "Copying to Devs-directory...")
             (DEST "MusicManII:Devs")
             (SOURCE "DEVS:printer.device")
  )

  (IF (EXISTS "Devs:Serial.device")
    (
      (COPYFILES (PROMPT "Copying to Devs-directory...")
                 (DEST "MusicManII:Devs")
                 (SOURCE "Devs:Serial.Device")
      )
    )
  )

  (IF (EXISTS "Devs:Parallel.device")
    (
      (COPYFILES (PROMPT "Copying to Devs-directory...")
                 (DEST "MusicManII:Devs")
                 (SOURCE "Devs:Parallel.Device")
      )
    )
  )

  (IF (EXISTS "Devs:System-Configuration")
    (
      (COPYFILES (PROMPT "Copying to Devs-directory...")
                 (DEST "MusicManII:Devs")
                 (SOURCE "Devs:System-Configuration")
      )
    )
  )

  (IF (< Kickstart 36)
  (
    (IF (= daten_ok 1)
      (
        (COPYFILES (PROMPT "Copying MusicManII-Preferences...")
                   (SOURCE "Prefs/Env-Archive/MusicManII/MusicManII.prefs")
                   (DEST "MusicManII:s")
        )
      )
    )
  )
  (
    (MAKEDIR "MusicManII:Prefs/Env-Archive/Sys")

    (COPYFILES (PROMPT "Copying to Prefs-directory...")
               (SOURCE "ENVARC:Sys/icontrol.prefs")
               (DEST "MusicManII:Prefs/Env-Archive/Sys")
    )


    (COPYFILES (PROMPT "Copying to Prefs-directory...")
               (SOURCE "ENVARC:Sys/input.prefs")
               (DEST "MusicManII:Prefs/Env-Archive/Sys")
    )

    (COPYFILES (PROMPT "Copying to Prefs-directory...")
               (SOURCE "ENVARC:Sys/palette.prefs")
               (DEST "MusicManII:Prefs/Env-Archive/Sys")
    )

    (COPYFILES (PROMPT "Copying to Prefs-directory...")
               (SOURCE "ENVARC:Sys/Pointer.prefs")
               (DEST "MusicManII:Prefs/Env-Archive/Sys")
    )

    (COPYFILES (PROMPT "Copying to Prefs-directory...")
               (SOURCE "ENVARC:Sys/printer.prefs")
               (DEST "MusicManII:Prefs/Env-Archive/Sys")
    )

    (COPYFILES (PROMPT "Copying to Prefs-directory...")
               (SOURCE "ENVARC:Sys/printergfx.prefs")
               (DEST "MusicManII:Prefs/Env-Archive/Sys")
    )

    (IF (= (EXISTS "MusicManII:Prefs/Env-Archive/MusicManII") 0)
      (
        (MAKEDIR "MusicManII:Prefs/Env-Archive/MusicManII")
      )
    )

    (COPYFILES (PROMPT "Copying MusicManII-Preferences...")
               (SOURCE "Prefs/Env-Archive/MusicManII/")
               (PATTERN "def#?")
               (DEST "MusicManII:Prefs/Env-Archive/MusicManII")
               (INFOS)
    )

    (COPYFILES (PROMPT "Copying MusicManII-Preferences...")
               (SOURCE "Prefs/Env-Archive/MusicManII/MusicManII.prefs")
               (DEST "MusicManII:Prefs/Env-Archive/MusicManII")
               (INFOS)
    )

  )
  )


  (IF (= Kick3 0)
    (
      (IF (< Kickstart 36)
        (
          (COPYFILES (PROMPT "Copying Startup-Sequence...")
                     (DEST "MusicManII:s")
                     (SOURCE "s/Startup-Sequence_WB1.x")
          )
        )
        (
          (COPYFILES (PROMPT "Copying Startup-Sequence...")
                     (DEST "MusicManII:s")
                     (SOURCE "s/Startup-Sequence_WB2.x")
                     (NEWNAME "Startup-Sequence")
          )
        )
      )
    )
    (
      (COPYFILES (PROMPT "Copying Startup-Sequence...")
                 (DEST "MusicManII:s")
                 (SOURCE "s/Startup-Sequence_WB3.x")
                 (NEWNAME "Startup-Sequence")
      )
    )
  )

  (COPYLIB (PROMPT "Copying Libraries...")
           (SOURCE "Libs/req.library")
           (DEST "MusicManII:LIBS")
  )

  (COPYLIB (PROMPT "Copying Libraries...")
           (SOURCE "Libs/pattern.library")
           (DEST "MusicManII:LIBS")
  )

  (IF (EXISTS "LIBS:iffparse.library")
    (
      (COPYLIB (PROMPT "Copying Libraries...")
               (SOURCE "Libs:iffparse.library")
               (DEST "MusicManII:LIBS")
      )
    )
  )

  (IF (EXISTS "LIBS:amigaguide.library")
    (
      (COPYLIB (PROMPT "Copying Libraries...")
               (SOURCE "Libs:amigaguide.library")
               (DEST "MusicManII:LIBS")
      )
    )
  )

  (IF (EXISTS "LIBS:diskfont.library")
    (
      (COPYLIB (PROMPT "Copying Libraries...")
               (SOURCE "Libs:diskfont.library")
               (DEST "MusicManII:LIBS")
      )
    )
  )

  (IF (EXISTS "LIBS:asl.library")
    (
      (COPYLIB (PROMPT "Copying Libraries...")
               (SOURCE "Libs:asl.library")
               (DEST "MusicManII:LIBS")
      )
    )
  )

  (IF (EXISTS "LIBS:datatypes.library")
    (
      (COPYLIB (PROMPT "Copying Libraries...")
               (SOURCE "Libs:datatypes.library")
               (DEST "MusicManII:LIBS")
      )
    )
  )

  (IF (EXISTS "SYS:Classes/datatypes/amigaguide.datatype")
    (
      (MAKEDIR "MusicManII:Libs/Datatypes")

      (COPYFILES (PROMPT "Copying Datatypes...")
                 (SOURCE "SYS:Classes/datatypes/amigaguide.datatype")
                 (DEST "MusicManII:LIBS/Datatypes/")
      )
    )
  )

  (IF (EXISTS "DEVS:Datatypes/AmigaGuide")
    (
      (MAKEDIR "MusicManII:Devs/Datatypes")

      (COPYFILES (PROMPT "Copying Datatypes...")
                 (SOURCE "DEVS:Datatypes/AmigaGuide")
                 (DEST "MusicManII:Devs/Datatypes/")
      )
    )
  )

  (COPYFILES (PROMPT "Copying MusicManII...")
             (SOURCE "MusicManII")
             (DEST "MusicManII:")
             (INFOS)
  )

  (COPYFILES (PROMPT "Copying MMII_PrefsEd...")
             (SOURCE "MMII_PrefsEd")
             (DEST "MusicManII:")
             (INFOS)
  )
)
)


;
; Create Disk with MusicManII-Data-Files
; --------------------------------------

(PROCEDURE create_data_disk
(
  (SET daten_ok 1)

  (ASKDISK (DEST "MusicManII_Files")
           (PROMPT "Please insert disk named »MusicManII_Files«...")
           (HELP "The example files are abou 600 kBytes long.\n"
                 "You may use them to get an overview without\n"
                 "having to enter lots of datas yourself.\n")
  )

  (EXECUTE ("Beispieldateien/UnpackIt MusicManII_Files:"))

)
)


;
; Create Disk with Documentation
; ------------------------------

(PROCEDURE create_dox_disk
(
  (ASKDISK (DEST "HILFE")
           (PROMPT "Please insert disk named »HELP«...")
           (HELP "The AmigaGuide online documentation\n"
                 "will be copied to this disk.\n"
                 "No online help will be available\n"
                 "without this file.\n")
  )

  (COPYFILES (PROMPT "Installiing online documentation...")
             (SOURCE "Anleitung/MusicManII.Guide")
             (DEST "HILFE:")
             (INFOS)
  )

)
)


;
; Install to Disks
; ================

(PROCEDURE Install2Disks
(
  (SET @default-dest "MusicManII:")

  (SET disk_nrs (ASKOPTIONS (PROMPT "Which disks do you want to create?")
                            (CHOICES "Programm disk"
                                     "Disk with example files"
                                     "Disk with online docu")
                            (DEFAULT 7)
                            (HELP "Program-disk:\n"
                                  "=============\n"
                                  "\n"
                                  "This disk will contain the main program\n"
                                  "and the preferences editor. There's also\n"
                                  "the possibility to create a boot disk so\n"
                                  "you may start MusicManII from that disk\n"
                                  "and work with it.\n"
                                  "\n"
                                  "Disk with example files:\n"
                                  "========================\n"
                                  "\n"
                                  "This disk will contain the examples files\n"
                                  "for MusicManII. They are not needed to work\n"
                                  "with MusicManII.\n"
                                  "\n"
                                  "Disk with online docu:\n"
                                  "=====================\n"
                                  "\n"
                                  "This disk will contain the AmigaGuide online\n"
                                  "documentation. It's not needed to work with\n"
                                  "MusicManII but provides useful for starters.\n")
                 )
  )

  (IF (= (IN disk_nrs 0) 1)
    (
      (SET boot_ok (ASKBOOL (PROMPT "Create bootable disk?")
                            (CHOICES "Yes"
                                     "No")
                            (DEFAULT 1)
                            (HELP "If you want to boot MusicManII directly\n"
                                  "(without Workbench) after inserting the\n"
                                  "disk named »MusicManII« you'll have to\n"
                                  "select »Yes«\n")
                   )
      )

      (IF (= boot_ok 1)
        (
          (create_boot_disk)
        )
        (
          (ASKDISK (DEST "MusicManII")
                   (PROMPT "Please insert disk named »MusicManII«...")
                   (HELP "No help available\n")
          )

          (COPYFILES (PROMPT "Copying Programs...")
                     (SOURCE "MusicManII")
                     (DEST @default-dest)
                     (INFOS)
          )

          (COPYFILES (PROMPT "Copying Programs...")
                     (SOURCE "MMII_PrefsEd")
                     (DEST @default-dest)
                     (INFOS)
          )

          (COPYLIB (PROMPT "Copying Libraries...")
                   (SOURCE "Libs/req.library")
                   (DEST "LIBS:")
          )

          (COPYLIB (PROMPT "Copying Libraries...")
                   (SOURCE "Libs/pattern.library")
                   (DEST "LIBS:")
          )

        )

      )
    )
  )

  (IF (= (IN disk_nrs 1) 2)
    (
      (create_data_disk)
    )
  )

  (IF (= (IN disk_nrs 2) 4)
    (
      (create_dox_disk)
    )
  )
)
)


;
; Install to HardDisk
; ===================

(PROCEDURE Install2HD
(
  (SET @default-dest (ASKDIR (PROMPT "Please enter directory where to install MusicManII")
                             (NEWPATH)
                             (DISK)
                             (DEFAULT @default-dest)
                             (HELP @askdir-help)
                     )
  )

  (COPYFILES (PROMPT "Copying Programs...")
             (SOURCE "MusicManII")
             (DEST @default-dest)
             (INFOS)
  )

  (COPYFILES (PROMPT "Copying Programs...")
             (SOURCE "MMII_PrefsEd")
             (DEST @default-dest)
             (INFOS)
  )

  (SET def_dir (TACKON @default-dest "Files"))

  (IF (= (EXISTS def_dir) 0)
    (

      (MAKEDIR def_dir
               (PROMPT "Creating directory with files...")
               (INFOS)
      )
    )
  )

  (SET daten_ok (ASKBOOL (PROMPT "Do you want to install the example files?")
                         (CHOICES "Yes" "No")
                         (DEFAULT 1)
                         (HELP "The example files are abou 600 kBytes long.\n"
                               "You may use them to get an overview without\n"
                               "having to enter lots of datas yourself.\n")
                )
  )

  (IF (= daten_ok 1)
    (

       (SET upack (CAT "Beispieldateien/UnpackIt " def_dir))

       (EXECUTE upack)

    )
  )

  (SET doc_ok (ASKBOOL (PROMPT "Do you want to install the document?")
                       (CHOICES "Ja" "Nein")
                       (DEFAULT 1)
                       (HELP "This will copy the AmigaGuide online documentation\n"
                             "to your MusicManII directory. No help will be\n"
                             "available without this file.\n")
              )
  )

  (IF (= doc_ok 1)
    (
      (COPYFILES (PROMPT "Installing online documentation...")
                 (SOURCE "Anleitung/MusicManII.Guide")
                 (DEST @default-dest)
                 (INFOS)
      )
    )
  )

  (IF (>= Kickstart 36)
    (
      (IF (= (EXISTS "ENVARC:MusicManII") 0)
        (
          (MAKEDIR "ENVARC:MusicManII")
        )
      )

      (IF (= (EXISTS "ENV:MusicManII") 0)
        (
          (MAKEDIR "ENV:MusicManII")
        )
      )

      (IF (= daten_ok 1)
        (
          (COPYFILES (PROMPT "Copying MusicManII-Preferences...")
                     (SOURCE "Prefs/Env-Archive_HD/MusicManII/")
                     (DEST "ENVARC:MusicManII")
                     (ALL)
          )

          (COPYFILES (PROMPT "Copying MusicManII-Preferences...")
                     (SOURCE "Prefs/Env-Archive_HD/MusicManII/")
                     (DEST "ENV:MusicManII")
                     (ALL)
          )
        )
      )
    )
    (
      (IF (= daten_ok 1)
        (
          (COPYFILES (PROMPT "Copying MusicManII-Preferences...")
                     (SOURCE "Prefs/Env-Archive_HD/MusicManII.prefs")
                     (DEST "S:")
          )
        )
      )
    )
  )

  (COPYLIB (PROMPT "Copying Libraries...")
           (SOURCE "Libs/req.library")
           (DEST "LIBS:")
  )

  (COPYLIB (PROMPT "Copying Libraries...")
           (SOURCE "Libs/pattern.library")
           (DEST "LIBS:")
  )
)
)


; ********
; * Main *
; ********

(SET Kickstart (GETVERSION))

(SET userlevel @user-level)

(USER 2)

(SET wo_installieren (ASKCHOICE (PROMPT "Where do you want to install MusicManII?")
                                (CHOICES "On harddisk"
                                         "On disk(s)")
                                (DEFAULT 1)
                                (HELP @askchoice-help)
                     )
)

(USER userlevel)

(IF (= wo_installieren 0)
  (
    (Install2HD)
  )
  (
    (Install2Disks)
  )
)